perm filename AMOD3.PS1[S1,ALS] blob sn#438978 filedate 1979-05-10 generic text, type T, neo UTF8
   TON   S1CODE  P
   TON   STACK  P
      STACK IS EMPTY.
   BGN   1  0  0
      STACK IS EMPTY.
   SST   P  $MAINBLK  1  71  0  0  0  0
      STACK IS EMPTY.
   SST   P  $GENCOMM  2  72  0  0  0  0
      STACK IS EMPTY.
   SST   P  $FORVARS  3  73  0  0  0  0
      STACK IS EMPTY.
   COMM  ***         X=3.                                                            
      STACK IS EMPTY.
   SST   P  $FORMAIN  4  74  0  0  0  0
      STACK IS EMPTY.
  $FORMAIN  ENT   P  4  74  0  0  $FORMAIN  1  1  1
      INSTRUCTION(S) EMITTED:
(   33782)         0 :  314700324100  MOVADR          %32,|204(%36)|
                        207400000204
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|-4|
                        777777777774
                                 204
(   33758)         0 :  314741004100  MOVADR          |204|,|0(%3)|
                        200600000000
                                 204
      STACK IS EMPTY.
   LEX   1  71
      STACK IS EMPTY.
   LEX   2  72
      STACK IS EMPTY.
   LEX   3  73
      STACK IS EMPTY.
   MST   4  0  0
      STACK IS EMPTY.
   CUP   P  75  $INIX075  0  0  1
      INSTRUCTION(S) EMITTED:
(   33729)         0 :  250600324003  JSR             %32,(  131071)
                                  20
      STACK IS EMPTY.
   MST   4  0  0
      STACK IS EMPTY.
   CUP   P  31  FILEI031  0  0  1
      INSTRUCTION(S) EMITTED:
(   33706)         0 :  250600324003  JSR             %32,(  131071)
                                  20
      STACK IS EMPTY.
   LDC   R   3.000000000    
      STACK PUSHED. NEW TOP IS 1
         STK[1] IS
         TYPR =  3.000000000    
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   STR   R  M  73  512  4
      INSTRUCTION(S) EMITTED:
(   33683)         0 :  273541004101  MOV.S.S         |570(%33)|,#|202600000000|
                        202600000000
                        206600000570
      STACK POPPED.  NEW TOP IS 0
   COMM  ***         C=2.                                                            
      STACK IS EMPTY.
   LDC   R   2.000000000    
      STACK PUSHED. NEW TOP IS 1
         STK[1] IS
         TYPR =  2.000000000    
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   STR   R  M  73  516  4
      INSTRUCTION(S) EMITTED:
(   33671)         0 :  273541004101  MOV.S.S         |574(%33)|,#|202400000000|
                        202400000000
                        206600000574
      STACK POPPED.  NEW TOP IS 0
   COMM  ***         R = AMOD(X,C)                                                   
      STACK IS EMPTY.
   LOD   R  M  73  512  4
      STACK PUSHED. NEW TOP IS 1
         STK[1] IS
         TYPR = 0: (0, 1: (<L3,376>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   LOD   R  M  73  516  4
      STACK PUSHED. NEW TOP IS 2
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,380>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   SWP   R  R
      STACK TOP IS 
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,376>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   NSTR  R  M  73  524  4
      INSTRUCTION(S) EMITTED:
(   33659)         0 :  273541004100  MOV.S.S         |604(%33)|,|570(%33)|
                        206600000570
                        206600000604
      STACK TOP IS 
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,388>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   SWP   R  R
      STACK TOP IS 
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,380>)*1).
         CODE STARTS WITH THE INSTRUCTION MOV.S.S        
   DUP   R
      STACK PUSHED. NEW TOP IS 3
         STK[3] IS
         TYPR = 0: (0, 1: (<L3,380>)*1).
         CODE STARTS WITH THE INSTRUCTION MOV.S.S        
   LOD   R  M  73  524  4
      STACK PUSHED. NEW TOP IS 4
         STK[4] IS
         TYPR = 0: (0, 1: (<L3,388>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   SWP   R  R
      STACK TOP IS 
         STK[4] IS
         TYPR = 0: (0, 1: (<L3,380>)*1).
         CODE STARTS WITH THE INSTRUCTION MOV.S.S        
   DIV   R
      INSTRUCTION(S) EMITTED:
(   33647)         0 :   72641004100  FDIV.S          %RTA,|604(%33)|,|574(%33)|
                        206600000574
                        206600000604
      STACK POPPED.  NEW TOP IS 3
         STK[3] IS
         TYPR = 0: (0, 1: (RTA)*1).
         CODE STARTS WITH THE INSTRUCTION FDIV.S         
   TRC 
      INSTRUCTION(S) EMITTED:
(   33631)         0 :  263100100004  FIX.DM.S.S      %10,%RTA
      STACK TOP IS 
         STK[3] IS
         TYPI = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION FDIV.S         
   FLT 
      INSTRUCTION(S) EMITTED:
(   33623)         0 :  267400100010  FLOAT.S.S       %10,%10
      STACK TOP IS 
         STK[3] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION FDIV.S         
   MPY   R
      INSTRUCTION(S) EMITTED:
(   33619)         0 :   70000104100  FMULT.S         %10,|574(%33)|
                        206600000574
      STACK POPPED.  NEW TOP IS 2
         STK[2] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION MOV.S.S        
   SUB   R
      INSTRUCTION(S) EMITTED:
(   33611)         0 :   66400104100  FSUBV.S         %10,|604(%33)|
                        206600000604
      STACK POPPED.  NEW TOP IS 1
         STK[1] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION FDIV.S         
   STR   R  M  73  520  4
      INSTRUCTION(S) EMITTED:
(   33603)         0 :  273541000010  MOV.S.S         |600(%33)|,%10
                        206600000600
      STACK POPPED.  NEW TOP IS 0
   COMM  ***         PRINT R                                                         
      STACK IS EMPTY.
   LDA   M  71  13  1
      STACK PUSHED. NEW TOP IS 1
         STK[1] IS
         TYPA = 0: (<L1,-159>).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   CSP   A  SIO  1  1
      INSTRUCTION(S) EMITTED:
(   33587)         0 :  314741004100  MOVADR          |-244(%35)|,|-237(%35)|
                        207377777541
                        207377777534
      STACK TOP IS 
         STK[1] IS
         TYPA = 0: (0, 1: (<L1,-164>)*1).
         CODE STARTS WITH THE INSTRUCTION MOVADR         
   LOD   R  M  73  520  4
      STACK PUSHED. NEW TOP IS 2
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,384>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   LDC   I  14
      STACK PUSHED. NEW TOP IS 3
         STK[3] IS
         TYPI = 0: (14).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   LDC   I  0
      STACK PUSHED. NEW TOP IS 4
         STK[4] IS
         TYPI = 0: (0).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   CSP   A  WRR  4  1
      INSTRUCTION(S) EMITTED:
(   33575)         0 :  344600360104  ADJSP.UP        %36,#4
(   33571)         0 :  273536770116  MOV.S.S         -1*4(%36),#16
(   33567)         0 :  273500064100  MOV.S.S         %RTB,|600(%33)|
                        206600000600
(   33559)         0 :  250600344003  JSR             %34,(  131071)
                                  20
(   33536)         0 :    5400360104  SUB.S           %36,#4
      STACK POPPED.  NEW TOP IS 1
         STK[1] IS
         TYPA = 0: (0, 1: (<L1,-164>)*1).
         CODE STARTS WITH THE INSTRUCTION MOVADR         
   CSP   A  WLN  1  1
      INSTRUCTION(S) EMITTED:
(   33532)         0 :  250600344003  JSR             %34,(  131071)
                                  20
      STACK TOP IS 
         STK[1] IS
         TYPA = 0: (0, 1: (<L1,-164>)*1).
         CODE STARTS WITH THE INSTRUCTION MOVADR         
   CSP   P  EIO  1  0
      STACK POPPED.  NEW TOP IS 0
   COMM  ***         C=-2                                                            
      STACK IS EMPTY.
   LDC   I  2
      STACK PUSHED. NEW TOP IS 1
         STK[1] IS
         TYPI = 0: (2).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   NEG   I
      STACK TOP IS 
         STK[1] IS
         TYPI = 0: (-2).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   COMM  *** WARNING # 41:  INTEGER VALUE COERCED TO REAL
      STACK TOP IS 
         STK[1] IS
         TYPI = 0: (-2).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   FLT 
      STACK TOP IS 
         STK[1] IS
         TYPR = -2.000000000    
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   STR   R  M  73  516  4
      INSTRUCTION(S) EMITTED:
(   33509)         0 :  273541004101  MOV.S.S         |574(%33)|,#|575400000000|
                        575400000000
                        206600000574
      STACK POPPED.  NEW TOP IS 0
   COMM  ***         R = AMOD(X,ABS(C))                                              
      STACK IS EMPTY.
   LOD   R  M  73  512  4
      STACK PUSHED. NEW TOP IS 1
         STK[1] IS
         TYPR = 0: (0, 1: (<L3,376>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   LOD   R  M  73  516  4
      STACK PUSHED. NEW TOP IS 2
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,380>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   ABS   R
      INSTRUCTION(S) EMITTED:
(   33497)         0 :  272100104100  ABS.S           %10,|574(%33)|
                        206600000574
      STACK TOP IS 
         STK[2] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION ABS.S          
   SWP   R  R
      STACK TOP IS 
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,376>)*1).
         CODE STARTS WITH THE INSTRUCTION ABS.S          
   STR   R  M  73  528  4
      INSTRUCTION(S) EMITTED:
(   33489)         0 :  273541004100  MOV.S.S         |610(%33)|,|570(%33)|
                        206600000570
                        206600000610
      STACK POPPED.  NEW TOP IS 1
         STK[1] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION ABS.S          
   LOD   R  M  73  528  4
      STACK PUSHED. NEW TOP IS 2
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,392>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   SWP   R  R
      STACK TOP IS 
         STK[2] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION ABS.S          
   DUP   R
      STACK PUSHED. NEW TOP IS 3
         STK[3] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION ABS.S          
   LOD   R  M  73  528  4
      STACK PUSHED. NEW TOP IS 4
         STK[4] IS
         TYPR = 0: (0, 1: (<L3,392>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   SWP   R  R
      STACK TOP IS 
         STK[4] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION ABS.S          
   DIV   R
      INSTRUCTION(S) EMITTED:
(   33477)         0 :   74000104100  FDIVV.S         %10,|610(%33)|
                        206600000610
      STACK POPPED.  NEW TOP IS 3
         STK[3] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION FDIVV.S        
   TRC 
      INSTRUCTION(S) EMITTED:
(   33465)         0 :  263100100010  FIX.DM.S.S      %10,%10
      STACK TOP IS 
         STK[3] IS
         TYPI = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION FDIVV.S        
   FLT 
      INSTRUCTION(S) EMITTED:
(   33457)         0 :  267400100010  FLOAT.S.S       %10,%10
      STACK TOP IS 
         STK[3] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION FDIVV.S        
   MPY   R
      INSTRUCTION(S) EMITTED:
(   33453)         0 :   70000100010  FMULT.S         %10,%10
      STACK POPPED.  NEW TOP IS 2
         STK[2] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION ABS.S          
   SUB   R
      INSTRUCTION(S) EMITTED:
(   33449)         0 :   66400104100  FSUBV.S         %10,|610(%33)|
                        206600000610
      STACK POPPED.  NEW TOP IS 1
         STK[1] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION FDIVV.S        
   STR   R  M  73  520  4
      INSTRUCTION(S) EMITTED:
(   33441)         0 :  273541000010  MOV.S.S         |600(%33)|,%10
                        206600000600
      STACK POPPED.  NEW TOP IS 0
   COMM  ***         PRINT R,ABS(C)                                                  
      STACK IS EMPTY.
   LDA   M  71  13  1
      STACK PUSHED. NEW TOP IS 1
         STK[1] IS
         TYPA = 0: (<L1,-159>).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   CSP   A  SIO  1  1
      INSTRUCTION(S) EMITTED:
(   33425)         0 :  314741004100  MOVADR          |-244(%35)|,|-237(%35)|
                        207377777541
                        207377777534
      STACK TOP IS 
         STK[1] IS
         TYPA = 0: (0, 1: (<L1,-164>)*1).
         CODE STARTS WITH THE INSTRUCTION MOVADR         
   LOD   R  M  73  520  4
      STACK PUSHED. NEW TOP IS 2
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,384>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   LDC   I  14
      STACK PUSHED. NEW TOP IS 3
         STK[3] IS
         TYPI = 0: (14).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   LDC   I  0
      STACK PUSHED. NEW TOP IS 4
         STK[4] IS
         TYPI = 0: (0).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   CSP   A  WRR  4  1
      INSTRUCTION(S) EMITTED:
(   33413)         0 :  344600360104  ADJSP.UP        %36,#4
(   33409)         0 :  273536770116  MOV.S.S         -1*4(%36),#16
(   33405)         0 :  273500064100  MOV.S.S         %RTB,|600(%33)|
                        206600000600
(   33397)         0 :  250600344003  JSR             %34,(  131071)
                                  20
(   33381)         0 :    5400360104  SUB.S           %36,#4
      STACK POPPED.  NEW TOP IS 1
         STK[1] IS
         TYPA = 0: (0, 1: (<L1,-164>)*1).
         CODE STARTS WITH THE INSTRUCTION MOVADR         
   LOD   R  M  73  516  4
      STACK PUSHED. NEW TOP IS 2
         STK[2] IS
         TYPR = 0: (0, 1: (<L3,380>)*1).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   ABS   R
      INSTRUCTION(S) EMITTED:
(   33377)         0 :  272100104100  ABS.S           %10,|574(%33)|
                        206600000574
      STACK TOP IS 
         STK[2] IS
         TYPR = 0: (0, 1: (R8)*1).
         CODE STARTS WITH THE INSTRUCTION ABS.S          
   LDC   I  14
      STACK PUSHED. NEW TOP IS 3
         STK[3] IS
         TYPI = 0: (14).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   LDC   I  0
      STACK PUSHED. NEW TOP IS 4
         STK[4] IS
         TYPI = 0: (0).
         CODE STARTS WITH THE INSTRUCTION AT NEWINSTREC.
   CSP   A  WRR  4  1
      INSTRUCTION(S) EMITTED:
(   33369)         0 :  344600360104  ADJSP.UP        %36,#4
(   33365)         0 :  273536770116  MOV.S.S         -1*4(%36),#16
(   33361)         0 :  273500060010  MOV.S.S         %RTB,%10
(   33353)         0 :  250600344003  JSR             %34,(  131071)
                                  20
(   33337)         0 :    5400360104  SUB.S           %36,#4
      STACK POPPED.  NEW TOP IS 1
         STK[1] IS
         TYPA = 0: (0, 1: (<L1,-164>)*1).
         CODE STARTS WITH THE INSTRUCTION MOVADR         
   CSP   A  WLN  1  1
      INSTRUCTION(S) EMITTED:
(   33333)         0 :  250600344003  JSR             %34,(  131071)
                                  20
      STACK TOP IS 
         STK[1] IS
         TYPA = 0: (0, 1: (<L1,-164>)*1).
         CODE STARTS WITH THE INSTRUCTION MOVADR         
   CSP   P  EIO  1  0
      STACK POPPED.  NEW TOP IS 0
   COMM  ***         END                                                             
      STACK IS EMPTY.
   COMM  *** 
      STACK IS EMPTY.
   COMM  *** ..ABS   ..           4             0
      STACK IS EMPTY.
   COMM  *** ..AMOD  ..           4             0
      STACK IS EMPTY.
   COMM  *** ..C     ..           3           516
      STACK IS EMPTY.
   COMM  *** ..R     ..           3           520
      STACK IS EMPTY.
   COMM  *** ..X     ..           3           512
      STACK IS EMPTY.
   RET 
      INSTRUCTION(S) EMITTED:
(   33317)         0 :  273541004100  MOV.S.S         |204|,|-204(%32)|
                        206577777574
                                 204
(   33305)         0 :  324200324100  RETSR           %32,|-204(%32)|
                        206577777574
      STACK IS EMPTY.
   DEF   M  8
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|4|
                                   4
                                 204
      STACK IS EMPTY.
   END   $FORMAIN
      STACK IS EMPTY.
   SST   P  $INIX075  4  75  0  0  0  0
      STACK IS EMPTY.
  $INIX075  ENT   P  4  75  0  0  $INIX075  1  1  1
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|4|
                                   4
                                 204
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33782)         0 :  314700324100  MOVADR          %32,|204(%36)|
                        207400000204
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33305)         0 :  324200324100  RETSR           %32,|-204(%32)|
                        206577777574
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33317)         0 :  273541004100  MOV.S.S         |204|,|-204(%32)|
                        206577777574
                                 204
**************************  ;START OF  $FORMAIN  $FORMAIN
        20 :  314700324100  MOVADR          %32,|204(%36)|
              207400000204
        30 :  320241004101  ALLOC.1         |204|,#|4|
                         4
                       204
        44 :  314741004100  MOVADR          |204|,|-44(%3)|
              200777777734
                       204
        60 :  250600324003  JSR             %32,|-40|(%3)
                7777777740
        70 :  250600324003  JSR             %32,|-50|(%3)
                7777777730
       100 :  273541004101  MOV.S.S         |570(%33)|,#|202600000000|
              202600000000
              206600000570
       114 :  273541004101  MOV.S.S         |574(%33)|,#|202400000000|
              202400000000
              206600000574
       130 :  273541004100  MOV.S.S         |604(%33)|,|570(%33)|
              206600000570
              206600000604
       144 :   72641004100  FDIV.S          %RTA,|604(%33)|,|574(%33)|
              206600000574
              206600000604
       160 :  263100100004  FIX.DM.S.S      %10,%RTA
       164 :  267400100010  FLOAT.S.S       %10,%10
       170 :   70000104100  FMULT.S         %10,|574(%33)|
              206600000574
       200 :   66400104100  FSUBV.S         %10,|604(%33)|
              206600000604
       210 :  273541000010  MOV.S.S         |600(%33)|,%10
              206600000600
       220 :  314741004100  MOVADR          |-244(%35)|,|-237(%35)|
              207377777541
              207377777534
       234 :  344600360104  ADJSP.UP        %36,#4
       240 :  273536770116  MOV.S.S         -1*4(%36),#16
       244 :  273500064100  MOV.S.S         %RTB,|600(%33)|
              206600000600
       254 :  250600344003  JSR             %34,|-234|(%3)
                7777777544
       264 :    5400360104  SUB.S           %36,#4
       270 :  250600344003  JSR             %34,|-250|(%3)
                7777777530
       300 :  273541004101  MOV.S.S         |574(%33)|,#|575400000000|
              575400000000
              206600000574
       314 :  272100104100  ABS.S           %10,|574(%33)|
              206600000574
       324 :  273541004100  MOV.S.S         |610(%33)|,|570(%33)|
              206600000570
              206600000610
       340 :   74000104100  FDIVV.S         %10,|610(%33)|
              206600000610
       350 :  263100100010  FIX.DM.S.S      %10,%10
       354 :  267400100010  FLOAT.S.S       %10,%10
       360 :   70000100010  FMULT.S         %10,%10
       364 :   66400104100  FSUBV.S         %10,|610(%33)|
              206600000610
       374 :  273541000010  MOV.S.S         |600(%33)|,%10
              206600000600
       404 :  314741004100  MOVADR          |-244(%35)|,|-237(%35)|
              207377777541
              207377777534
       420 :  344600360104  ADJSP.UP        %36,#4
       424 :  273536770116  MOV.S.S         -1*4(%36),#16
       430 :  273500064100  MOV.S.S         %RTB,|600(%33)|
              206600000600
       440 :  250600344003  JSR             %34,|-420|(%3)
                7777777360
       450 :    5400360104  SUB.S           %36,#4
       454 :  272100104100  ABS.S           %10,|574(%33)|
              206600000574
       464 :  344600360104  ADJSP.UP        %36,#4
       470 :  273536770116  MOV.S.S         -1*4(%36),#16
       474 :  273500060010  MOV.S.S         %RTB,%10
       500 :  250600344003  JSR             %34,|-460|(%3)
                7777777320
       510 :    5400360104  SUB.S           %36,#4
       514 :  250600344003  JSR             %34,|-474|(%3)
                7777777304
       524 :  273541004100  MOV.S.S         |204|,|-204(%32)|
              206577777574
                       204
       540 :  324200324100  RETSR           %32,|-204(%32)|
              206577777574

      INSTRUCTION(S) EMITTED:
(   33782)         0 :  314700324100  MOVADR          %32,|204(%36)|
                        207400000204
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|-4|
                        777777777774
                                 204
(   33758)         0 :  314741004100  MOVADR          |204|,|0(%3)|
                        200600000000
                                 204
      STACK IS EMPTY.
   LEX   1  71
      STACK IS EMPTY.
   LEX   2  72
      STACK IS EMPTY.
   LEX   3  73
      STACK IS EMPTY.
   RET 
      INSTRUCTION(S) EMITTED:
(   33729)         0 :  273541004100  MOV.S.S         |204|,|-204(%32)|
                        206577777574
                                 204
(   33717)         0 :  324200324100  RETSR           %32,|-204(%32)|
                        206577777574
      STACK IS EMPTY.
   DEF   M  8
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|4|
                                   4
                                 204
      STACK IS EMPTY.
   END   $INIX075
      STACK IS EMPTY.
  $FORVARS  ENT   P  3  73  0  0  $FORVARS  1  1  1
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|4|
                                   4
                                 204
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33782)         0 :  314700324100  MOVADR          %32,|204(%36)|
                        207400000204
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33717)         0 :  324200324100  RETSR           %32,|-204(%32)|
                        206577777574
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33729)         0 :  273541004100  MOV.S.S         |204|,|-204(%32)|
                        206577777574
                                 204
**************************  ;START OF  $INIX075  $INIX075
        20 :  314700324100  MOVADR          %32,|204(%36)|
              207400000204
        30 :  320241004101  ALLOC.1         |204|,#|4|
                         4
                       204
        44 :  314741004100  MOVADR          |204|,|-44(%3)|
              200777777734
                       204
        60 :  273541004100  MOV.S.S         |204|,|-204(%32)|
              206577777574
                       204
        74 :  324200324100  RETSR           %32,|-204(%32)|
              206577777574

      INSTRUCTION(S) EMITTED:
(   33782)         0 :  314700334100  MOVADR          %33,|204(%36)|
                        207400000204
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|-4|
                        777777777774
                                 204
(   33758)         0 :  314741004100  MOVADR          |204|,|0(%3)|
                        200600000000
                                 204
      STACK IS EMPTY.
   LEX   1  71
      STACK IS EMPTY.
   LEX   2  72
      STACK IS EMPTY.
   MST   4  0  0
      STACK IS EMPTY.
   CUP   P  74  $FORMAIN  0  0  0
      INSTRUCTION(S) EMITTED:
(   33729)         0 :  250600324003  JSR             %32,(  131071)
                                  20
      STACK IS EMPTY.
   RET 
      INSTRUCTION(S) EMITTED:
(   33706)         0 :  273541004100  MOV.S.S         |204|,|-204(%33)|
                        206777777574
                                 204
(   33694)         0 :  324200334100  RETSR           %33,|-204(%33)|
                        206777777574
      STACK IS EMPTY.
   DEF   M  536
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|1024|
                                1024
                                 204
      STACK IS EMPTY.
   END   $FORVARS
      STACK IS EMPTY.
  $GENCOMM  ENT   P  2  72  0  0  $GENCOMM  1  1  1
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|1024|
                                1024
                                 204
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33782)         0 :  314700334100  MOVADR          %33,|204(%36)|
                        207400000204
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33694)         0 :  324200334100  RETSR           %33,|-204(%33)|
                        206777777574
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33706)         0 :  273541004100  MOV.S.S         |204|,|-204(%33)|
                        206777777574
                                 204
**************************  ;START OF  $FORVARS  $FORVARS
        20 :  314700334100  MOVADR          %33,|204(%36)|
              207400000204
        30 :  320241004101  ALLOC.1         |204|,#|1024|
                      1024
                       204
        44 :  314741004100  MOVADR          |204|,|-44(%3)|
              200777777734
                       204
        60 :  250600324003  JSR             %32,|-40|(%3)
                7777777740
        70 :  273541004100  MOV.S.S         |204|,|-204(%33)|
              206777777574
                       204
       104 :  324200334100  RETSR           %33,|-204(%33)|
              206777777574

      INSTRUCTION(S) EMITTED:
(   33782)         0 :  314700344100  MOVADR          %34,|204(%36)|
                        207400000204
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|-4|
                        777777777774
                                 204
(   33758)         0 :  314741004100  MOVADR          |204|,|0(%3)|
                        200600000000
                                 204
      STACK IS EMPTY.
   LEX   1  71
      STACK IS EMPTY.
   MST   3  0  0
      STACK IS EMPTY.
   CUP   P  73  $FORVARS  0  0  0
      INSTRUCTION(S) EMITTED:
(   33729)         0 :  250600334003  JSR             %33,(  131071)
                                  20
      STACK IS EMPTY.
   RET 
      INSTRUCTION(S) EMITTED:
(   33706)         0 :  273541004100  MOV.S.S         |204|,|-204(%34)|
                        207177777574
                                 204
(   33694)         0 :  324200344100  RETSR           %34,|-204(%34)|
                        207177777574
      STACK IS EMPTY.
   DEF   M  8
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|4|
                                   4
                                 204
      STACK IS EMPTY.
   END   $GENCOMM
      STACK IS EMPTY.
  $MAINBLK  ENT   P  1  71  0  0  $MAINBLK  1  1  1
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|4|
                                   4
                                 204
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33782)         0 :  314700344100  MOVADR          %34,|204(%36)|
                        207400000204
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33694)         0 :  324200344100  RETSR           %34,|-204(%34)|
                        207177777574
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33706)         0 :  273541004100  MOV.S.S         |204|,|-204(%34)|
                        207177777574
                                 204
**************************  ;START OF  $GENCOMM  $GENCOMM
        20 :  314700344100  MOVADR          %34,|204(%36)|
              207400000204
        30 :  320241004101  ALLOC.1         |204|,#|4|
                         4
                       204
        44 :  314741004100  MOVADR          |204|,|-44(%3)|
              200777777734
                       204
        60 :  250600334003  JSR             %33,|-40|(%3)
                7777777740
        70 :  273541004100  MOV.S.S         |204|,|-204(%34)|
              207177777574
                       204
       104 :  324200344100  RETSR           %34,|-204(%34)|
              207177777574

      INSTRUCTION(S) EMITTED:
(   33782)         0 :  314700354100  MOVADR          %35,|250(%36)|
                        207400000250
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|-4|
                        777777777774
                                 204
(   33758)         0 :  314741004100  MOVADR          |204|,|0(%3)|
                        200600000000
                                 204
      STACK IS EMPTY.
   MST   2  0  0
      STACK IS EMPTY.
   CUP   P  72  $GENCOMM  0  0  0
      INSTRUCTION(S) EMITTED:
(   33729)         0 :  250600344003  JSR             %34,(  131071)
                                  20
      STACK IS EMPTY.
   RET 
      INSTRUCTION(S) EMITTED:
(   33706)         0 :  273541004100  MOV.S.S         |204|,|-250(%35)|
                        207377777530
                                 204
(   33694)         0 :  324200354100  RETSR           %35,|-250(%35)|
                        207377777530
      STACK IS EMPTY.
   DEF   M  44
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|50|
                                  50
                                 204
      STACK IS EMPTY.
   END   $MAINBLK
      STACK IS EMPTY.
   STP 
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33774)         0 :  320241004101  ALLOC.1         |204|,#|50|
                                  50
                                 204
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33782)         0 :  314700354100  MOVADR          %35,|250(%36)|
                        207400000250
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33694)         0 :  324200354100  RETSR           %35,|-250(%35)|
                        207377777530
      FIXUP PERFORMED TO PRODUCE THE INSTRUCTION:
(   33706)         0 :  273541004100  MOV.S.S         |204|,|-250(%35)|
                        207377777530
                                 204
**************************  ;START OF  $MAINBLK  $MAINBLK
        20 :  314700354100  MOVADR          %35,|250(%36)|
              207400000250
        30 :  320241004101  ALLOC.1         |204|,#|50|
                        50
                       204
        44 :  314741004100  MOVADR          |204|,|-44(%3)|
              200777777734
                       204
        60 :  250600344003  JSR             %34,|-40|(%3)
                7777777740
        70 :  273541004100  MOV.S.S         |204|,|-250(%35)|
              207377777530
                       204
       104 :  324200354100  RETSR           %35,|-250(%35)|
              207377777530

      STACK IS EMPTY.
**************************  ;START OF STATISTICS

 PEEPHOLE OPTIMIZER STATISTICS:

       0 JMPAS CHAINED
       0 JMPAS REMOVED FROM SKIPS
       0 MOVS COLLAPSED

       0 TOTAL WORDS REMOVED

 INSTRUCTION COUNTS:

       2 ABS.S          
       3 ADJSP.UP       
       5 ALLOC.1        
       2 FIX.DM.S.S     
       2 FLOAT.S.S      
       2 FSUBV.S        
       2 FMULT.S        
       1 FDIV.S         
       1 FDIVV.S        
      10 JSR            
      12 MOVADR         
      18 MOV.S.S        
       5 RETSR          
       3 SUB.S          

      68 TOTAL INSTRUCTIONS

     164 TXT WORDS OUTPUT TO LOADER FILE

          ****   NO ASSEMBLY ERROR(S) DETECTED,  1.61 SECONDS IN P-CODE ASSEMBLY.